home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideo Library / background_9989.txt < prev    next >
Text File  |  1991-03-04  |  20KB  |  920 lines
  1. -- background: 9989 from stack: in
  2. -- bmap block id: 10478
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Video
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=60 top=21 right=36 bottom=160
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: recording label
  20. ----- HyperTalk script -----
  21. on mouseDown
  22.   put "Home Video;Film;Television;" & "Video Production;Tape to Tape;Disc to Tape;Other" into choices
  23.  
  24.   put the value of 1 into lastItem
  25.   get topLeft of target
  26.  
  27.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  28.  
  29.   if the result is not empty then put the result
  30.  
  31.   if item 1 of it is not empty then
  32.     put item 1 of it into bkgnd fld "recording label"
  33.     if item 1 of it is "Other" then
  34.       ask "Enter Source"
  35.       if it is not empty then
  36.         put it into bkgnd fld "recording label"
  37.       end if
  38.     end if
  39.   end if
  40. end mouseDown
  41.  
  42.  
  43.  
  44. -- part 2 (field)
  45. -- low flags: 01
  46. -- high flags: 0002
  47. -- rect: left=211 top=21 right=36 bottom=336
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 3
  52. -- text size: 10
  53. -- style flags: 0
  54. -- line height: 13
  55. -- part name: content class
  56. ----- HyperTalk script -----
  57. on mouseDown
  58.   put "Action-Adventure;Comedy;Documentary;Educational;Exercise;" & "Family-Children;Feature-Drama;Horror;Instructional;Mystery-Suspense;" & "Music-Musicals;News-Newsmagazine;Science Fiction;Soap Opera;" & "Special Event;Special Project;Sports;" & "Theatre-Fine Arts;Travel;Other;" into choices
  59.  
  60.   put the value of 1 into lastItem
  61.   get topLeft of target
  62.  
  63.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  64.  
  65.   if the result is not empty then put the result
  66.  
  67.   if item 1 of it is not empty then
  68.     put item 1 of it into bkgnd fld "content class"
  69.     if item 1 of it is "Other" then
  70.       ask "Enter Content Material"
  71.       if it is not empty then
  72.         put it into bkgnd fld "content class"
  73.       end if
  74.     end if
  75.   end if
  76. end mouseDown
  77.  
  78.  
  79.  
  80. -- part 3 (field)
  81. -- low flags: 01
  82. -- high flags: 0002
  83. -- rect: left=92 top=39 right=54 bottom=200
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 3
  88. -- text size: 10
  89. -- style flags: 0
  90. -- line height: 13
  91. -- part name: format
  92. ----- HyperTalk script -----
  93. on mouseDown
  94.   put "Vid VHS;Vid S-VHS;Vid VHS-C;Vid S-VHS-C;" & "Vid Beta;Vid ED Beta;Vid BetaCam;Vid 8 mm;" & "Vid Hi-Band 8 mm;Vid 8in Laserdisc;Vid 12in Laserdisc;" & "Vid 0.75 inch;Vid 1 inch;Vid D-2" into choices
  95.  
  96.   put the value of 1 into lastItem
  97.   get topLeft of target
  98.  
  99.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  100.  
  101.   if the result is not empty then put the result
  102.  
  103.   if item 1 of it is not empty then
  104.     put item 1 of it into bkgnd fld "format"
  105.     if item 1 of it is "Other" then
  106.       ask "Enter Video Format"
  107.       if it is not empty then
  108.         put it into bkgnd fld "format"
  109.       end if
  110.     end if
  111.   end if
  112. end mouseDown
  113.  
  114.  
  115.  
  116. -- part 4 (field)
  117. -- low flags: 01
  118. -- high flags: 0002
  119. -- rect: left=284 top=39 right=54 bottom=380
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 3
  124. -- text size: 10
  125. -- style flags: 0
  126. -- line height: 13
  127. -- part name: Audio Format
  128. ----- HyperTalk script -----
  129. on mouseDown
  130.   put "Mono;Stereo;Dolby Stereo;Hi-Fi Stereo" into choices
  131.  
  132.   put the value of 1 into lastItem
  133.   get topLeft of target
  134.  
  135.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  136.  
  137.   if the result is not empty then put the result
  138.  
  139.   if item 1 of it is not empty then
  140.     put item 1 of it into bkgnd fld "Audio Format"
  141.     if item 1 of it is "Other" then
  142.       ask "Enter Audio Format"
  143.       if it is not empty then
  144.         put it into bkgnd fld "Audio Format"
  145.       end if
  146.     end if
  147.   end if
  148. end mouseDown
  149.  
  150.  
  151.  
  152. -- part 5 (field)
  153. -- low flags: 01
  154. -- high flags: 0002
  155. -- rect: left=125 top=237 right=254 bottom=156
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 3
  160. -- text size: 12
  161. -- style flags: 256
  162. -- line height: 16
  163. -- part name: numVol
  164. ----- HyperTalk script -----
  165. on mouseDown
  166.   put "1;2;3" into choices
  167.  
  168.   put the value of 1 into lastItem
  169.   get topLeft of target
  170.  
  171.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  172.  
  173.   if the result is not empty then put the result
  174.  
  175.   if item 1 of it is not empty then
  176.     put item 1 of it into bkgnd fld "numVol"
  177.     if bkgnd fld "numVol" contains "1" then
  178.       setVideo1
  179.     end if
  180.     if bkgnd fld "numVol" contains "2" then
  181.       if the hilite of bkgnd button "Vol III" is true then
  182.         setVideo2
  183.       end if
  184.     end if
  185.   end if
  186. end mouseDown
  187.  
  188.  
  189.  
  190. -- part 6 (button)
  191. -- low flags: 00
  192. -- high flags: 4006
  193. -- rect: left=160 top=229 right=243 bottom=212
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: Vol I
  202. ----- HyperTalk script -----
  203. on mouseUp
  204.   setVideo1
  205. end mouseUp
  206.  
  207.  
  208.  
  209. -- part 7 (button)
  210. -- low flags: 00
  211. -- high flags: 0006
  212. -- rect: left=212 top=229 right=244 bottom=268
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Vol II
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   setVideo2
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 8 (button)
  229. -- low flags: 00
  230. -- high flags: 0006
  231. -- rect: left=269 top=230 right=243 bottom=325
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Vol III
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   setVideo3
  243. end mouseUp
  244.  
  245.  
  246.  
  247. -- part 10 (button)
  248. -- low flags: 00
  249. -- high flags: 0006
  250. -- rect: left=432 top=240 right=253 bottom=500
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 1
  254. -- font id: 0
  255. -- text size: 12
  256. -- style flags: 0
  257. -- line height: 16
  258. -- part name: Remarks
  259. ----- HyperTalk script -----
  260. on mouseUp
  261.   if the hilite of bkgnd button "Remarks" is false then
  262.     show bkgnd field "remarks"
  263.     set the hilite of bkgnd button "Remarks" to true
  264.   else
  265.     hide bkgnd field "remarks"
  266.     set the hilite of bkgnd button "Remarks" to false
  267.   end if
  268. end mouseUp
  269.  
  270.  
  271.  
  272. -- part 14 (field)
  273. -- low flags: 00
  274. -- high flags: 4007
  275. -- rect: left=136 top=77 right=218 bottom=377
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 0
  279. -- font id: 3
  280. -- text size: 12
  281. -- style flags: 256
  282. -- line height: 16
  283. -- part name: title
  284.  
  285.  
  286. -- part 15 (field)
  287. -- low flags: 80
  288. -- high flags: 4007
  289. -- rect: left=136 top=77 right=218 bottom=377
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 0
  293. -- font id: 3
  294. -- text size: 12
  295. -- style flags: 256
  296. -- line height: 16
  297. -- part name: IItitles
  298.  
  299.  
  300. -- part 16 (field)
  301. -- low flags: 80
  302. -- high flags: 4007
  303. -- rect: left=136 top=77 right=218 bottom=377
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 0
  307. -- font id: 3
  308. -- text size: 12
  309. -- style flags: 256
  310. -- line height: 16
  311. -- part name: IIItitles
  312.  
  313.  
  314. -- part 18 (field)
  315. -- low flags: 00
  316. -- high flags: 0002
  317. -- rect: left=421 top=21 right=36 bottom=500
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 3
  322. -- text size: 10
  323. -- style flags: 0
  324. -- line height: 13
  325. -- part name: catalog number
  326.  
  327.  
  328. -- part 19 (button)
  329. -- low flags: 00
  330. -- high flags: 2000
  331. -- rect: left=231 top=302 right=333 bottom=272
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: VIDEOdummy
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.   put the number of cards of this background into quant
  343.   put ("AudioVideo Library currently contains " & quant & " sets of Videos") into message box
  344. end mouseUp
  345.  
  346.  
  347.  
  348. -- part 20 (button)
  349. -- low flags: 00
  350. -- high flags: 2000
  351. -- rect: left=135 top=302 right=333 bottom=176
  352. -- title width / last selected line: 0
  353. -- icon id / first selected line: 0 / 0
  354. -- text alignment: 1
  355. -- font id: 0
  356. -- text size: 12
  357. -- style flags: 0
  358. -- line height: 16
  359. -- part name: LPswitch
  360. ----- HyperTalk script -----
  361. on mouseUp
  362.   goLP
  363. end mouseUp
  364.  
  365.  
  366.  
  367. -- part 21 (button)
  368. -- low flags: 00
  369. -- high flags: 2000
  370. -- rect: left=183 top=302 right=333 bottom=225
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 0 / 0
  373. -- text alignment: 1
  374. -- font id: 0
  375. -- text size: 12
  376. -- style flags: 0
  377. -- line height: 16
  378. -- part name: TAPEswitch
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.   goTape
  382. end mouseUp
  383.  
  384.  
  385.  
  386. -- part 22 (button)
  387. -- low flags: 00
  388. -- high flags: 2000
  389. -- rect: left=87 top=302 right=333 bottom=129
  390. -- title width / last selected line: 0
  391. -- icon id / first selected line: 0 / 0
  392. -- text alignment: 1
  393. -- font id: 0
  394. -- text size: 12
  395. -- style flags: 0
  396. -- line height: 16
  397. -- part name: CDswitch
  398. ----- HyperTalk script -----
  399. on mouseUp
  400.   goCD
  401. end mouseUp
  402.  
  403.  
  404.  
  405. -- part 23 (button)
  406. -- low flags: 00
  407. -- high flags: 2000
  408. -- rect: left=470 top=318 right=333 bottom=506
  409. -- title width / last selected line: 0
  410. -- icon id / first selected line: 0 / 0
  411. -- text alignment: 1
  412. -- font id: 0
  413. -- text size: 12
  414. -- style flags: 0
  415. -- line height: 16
  416. -- part name: SkipNext
  417. ----- HyperTalk script -----
  418. on mouseUp
  419.   goNext
  420. end mouseUp
  421.  
  422.  
  423.  
  424. -- part 24 (button)
  425. -- low flags: 00
  426. -- high flags: 2000
  427. -- rect: left=432 top=318 right=333 bottom=468
  428. -- title width / last selected line: 0
  429. -- icon id / first selected line: 0 / 0
  430. -- text alignment: 1
  431. -- font id: 0
  432. -- text size: 12
  433. -- style flags: 0
  434. -- line height: 16
  435. -- part name: SkipPrev
  436. ----- HyperTalk script -----
  437. on mouseUp
  438.   goPrev
  439. end mouseUp
  440.  
  441.  
  442.  
  443. -- part 25 (button)
  444. -- low flags: 00
  445. -- high flags: 2000
  446. -- rect: left=6 top=302 right=334 bottom=76
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: Power
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   doPower
  458. end mouseUp
  459.  
  460.  
  461.  
  462. -- part 26 (button)
  463. -- low flags: 00
  464. -- high flags: 2000
  465. -- rect: left=394 top=290 right=305 bottom=430
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 0 / 0
  468. -- text alignment: 1
  469. -- font id: 0
  470. -- text size: 12
  471. -- style flags: 0
  472. -- line height: 16
  473. -- part name: Play
  474. ----- HyperTalk script -----
  475. on mouseUp
  476.   doPlay
  477. end mouseUp
  478.  
  479.  
  480.  
  481. -- part 28 (button)
  482. -- low flags: 00
  483. -- high flags: 2000
  484. -- rect: left=318 top=290 right=305 bottom=354
  485. -- title width / last selected line: 0
  486. -- icon id / first selected line: 0 / 0
  487. -- text alignment: 1
  488. -- font id: 0
  489. -- text size: 12
  490. -- style flags: 0
  491. -- line height: 16
  492. -- part name: NewCard
  493. ----- HyperTalk script -----
  494. on mouseUp
  495.   lock screen
  496.   setVideo1
  497.   if the userLevel < 4 then set the userLevel to 4
  498.   choose button tool
  499.   click at location of cd button "surround sound"
  500.   doMenu copy button
  501.   choose browse tool
  502.   unlock screen
  503.   visual effect scroll down
  504.   doMenu New Card
  505.   lock screen
  506.   doMenu paste button
  507.   set the hilite of cd button "surround sound" to false
  508.   put "1" into bkgnd fld "numVol"
  509.   choose browse tool
  510.   unlock screen
  511. end mouseUp
  512.  
  513.  
  514.  
  515. -- part 29 (button)
  516. -- low flags: 00
  517. -- high flags: 2000
  518. -- rect: left=280 top=290 right=305 bottom=316
  519. -- title width / last selected line: 0
  520. -- icon id / first selected line: 0 / 0
  521. -- text alignment: 1
  522. -- font id: 0
  523. -- text size: 12
  524. -- style flags: 0
  525. -- line height: 16
  526. -- part name: Delete
  527. ----- HyperTalk script -----
  528. on mouseUp
  529.   doDelete
  530.   go to previous card of background "VIDEO"
  531. end mouseUp
  532.  
  533.  
  534.  
  535. -- part 30 (button)
  536. -- low flags: 00
  537. -- high flags: 2000
  538. -- rect: left=394 top=318 right=333 bottom=430
  539. -- title width / last selected line: 0
  540. -- icon id / first selected line: 0 / 0
  541. -- text alignment: 1
  542. -- font id: 0
  543. -- text size: 12
  544. -- style flags: 0
  545. -- line height: 16
  546. -- part name: ToMaster
  547. ----- HyperTalk script -----
  548. on mouseUp
  549.   doMenu first
  550. end mouseUp
  551.  
  552.  
  553.  
  554. -- part 31 (button)
  555. -- low flags: 00
  556. -- high flags: 2000
  557. -- rect: left=470 top=290 right=305 bottom=506
  558. -- title width / last selected line: 0
  559. -- icon id / first selected line: 0 / 0
  560. -- text alignment: 1
  561. -- font id: 0
  562. -- text size: 12
  563. -- style flags: 0
  564. -- line height: 16
  565. -- part name: Next
  566. ----- HyperTalk script -----
  567. on mouseUp
  568.   doMenu Next
  569. end mouseUp
  570.  
  571.  
  572.  
  573. -- part 32 (button)
  574. -- low flags: 00
  575. -- high flags: 2000
  576. -- rect: left=432 top=290 right=305 bottom=468
  577. -- title width / last selected line: 0
  578. -- icon id / first selected line: 0 / 0
  579. -- text alignment: 1
  580. -- font id: 0
  581. -- text size: 12
  582. -- style flags: 0
  583. -- line height: 16
  584. -- part name: Prev
  585. ----- HyperTalk script -----
  586. on mouseUp
  587.   go to prev card
  588. end mouseUp
  589.  
  590.  
  591.  
  592. -- part 33 (button)
  593. -- low flags: 00
  594. -- high flags: 2000
  595. -- rect: left=356 top=290 right=307 bottom=392
  596. -- title width / last selected line: 0
  597. -- icon id / first selected line: 0 / 0
  598. -- text alignment: 1
  599. -- font id: 0
  600. -- text size: 12
  601. -- style flags: 0
  602. -- line height: 16
  603. -- part name: Search
  604. ----- HyperTalk script -----
  605. on mouseUp
  606.   doSearch
  607. end mouseUp
  608.  
  609.  
  610.  
  611. -- part 34 (button)
  612. -- low flags: 00
  613. -- high flags: 2000
  614. -- rect: left=280 top=318 right=333 bottom=316
  615. -- title width / last selected line: 0
  616. -- icon id / first selected line: 0 / 0
  617. -- text alignment: 1
  618. -- font id: 0
  619. -- text size: 12
  620. -- style flags: 0
  621. -- line height: 16
  622. -- part name: PrintCard
  623. ----- HyperTalk script -----
  624. on mouseUp
  625.   doPrint
  626. end mouseUp
  627.  
  628.  
  629.  
  630. -- part 35 (button)
  631. -- low flags: 00
  632. -- high flags: 2000
  633. -- rect: left=356 top=318 right=333 bottom=392
  634. -- title width / last selected line: 0
  635. -- icon id / first selected line: 0 / 0
  636. -- text alignment: 1
  637. -- font id: 0
  638. -- text size: 12
  639. -- style flags: 0
  640. -- line height: 16
  641. -- part name: Sort
  642. ----- HyperTalk script -----
  643. on mouseUp
  644.   push card
  645.   go to first card
  646.   doSort
  647. end mouseUp
  648.  
  649.  
  650.  
  651. -- part 43 (field)
  652. -- low flags: 01
  653. -- high flags: 0002
  654. -- rect: left=361 top=237 right=254 bottom=428
  655. -- title width / last selected line: 0
  656. -- icon id / first selected line: 0 / 0
  657. -- text alignment: 1
  658. -- font id: 3
  659. -- text size: 10
  660. -- style flags: 0
  661. -- line height: 14
  662. -- part name: year
  663. ----- HyperTalk script -----
  664. on mouseDown
  665.   chooseYear
  666. end mouseDown
  667.  
  668.  
  669. -- part 45 (field)
  670. -- low flags: 80
  671. -- high flags: 0000
  672. -- rect: left=459 top=195 right=213 bottom=508
  673. -- title width / last selected line: 0
  674. -- icon id / first selected line: 0 / 0
  675. -- text alignment: 0
  676. -- font id: 3
  677. -- text size: 12
  678. -- style flags: 0
  679. -- line height: 16
  680. -- part name: artist
  681.  
  682.  
  683. -- part 52 (button)
  684. -- low flags: 00
  685. -- high flags: 2000
  686. -- rect: left=318 top=318 right=333 bottom=354
  687. -- title width / last selected line: 0
  688. -- icon id / first selected line: 0 / 0
  689. -- text alignment: 1
  690. -- font id: 0
  691. -- text size: 12
  692. -- style flags: 0
  693. -- line height: 16
  694. -- part name: Help
  695. ----- HyperTalk script -----
  696. on mouseUp
  697.   push card
  698.   go to card "VIDEOhelp" of stack "AudioVideoUtilities"
  699. end mouseUp
  700.  
  701.  
  702.  
  703. -- part 54 (field)
  704. -- low flags: 01
  705. -- high flags: 0002
  706. -- rect: left=257 top=248 right=263 bottom=325
  707. -- title width / last selected line: 0
  708. -- icon id / first selected line: 0 / 0
  709. -- text alignment: 1
  710. -- font id: 3
  711. -- text size: 10
  712. -- style flags: 16640
  713. -- line height: 13
  714. -- part name: tape speed
  715. ----- HyperTalk script -----
  716. on mouseDown
  717.   put "SP;LP;EP;Other" into choices
  718.  
  719.   put the value of 1 into lastItem
  720.   get topLeft of target
  721.  
  722.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  723.  
  724.   if the result is not empty then put the result
  725.  
  726.   if item 1 of it is not empty then
  727.     put item 1 of it into bkgnd fld "tape speed"
  728.     if item 1 of it is "Other" then
  729.       ask "Enter speed"
  730.       if it is not empty then put it into bkgnd fld "tape speed"
  731.     end if
  732.   end if
  733. end mouseDown
  734.  
  735.  
  736.  
  737. -- part 56 (button)
  738. -- low flags: 00
  739. -- high flags: 2000
  740. -- rect: left=12 top=21 right=36 bottom=161
  741. -- title width / last selected line: 0
  742. -- icon id / first selected line: 0 / 0
  743. -- text alignment: 1
  744. -- font id: 0
  745. -- text size: 12
  746. -- style flags: 0
  747. -- line height: 16
  748. -- part name: source activate
  749. ----- HyperTalk script -----
  750. on mouseDown
  751.   send mouseDown to field "recording label"
  752. end mouseDown
  753.  
  754.  
  755.  
  756. -- part 55 (field)
  757. -- low flags: 80
  758. -- high flags: 4002
  759. -- rect: left=7 top=256 right=341 bottom=507
  760. -- title width / last selected line: 0
  761. -- icon id / first selected line: 0 / 0
  762. -- text alignment: 0
  763. -- font id: 3
  764. -- text size: 12
  765. -- style flags: 0
  766. -- line height: 16
  767. -- part name: remarks
  768.  
  769.  
  770. -- part 57 (button)
  771. -- low flags: 00
  772. -- high flags: 2000
  773. -- rect: left=165 top=21 right=36 bottom=336
  774. -- title width / last selected line: 0
  775. -- icon id / first selected line: 0 / 0
  776. -- text alignment: 1
  777. -- font id: 0
  778. -- text size: 12
  779. -- style flags: 0
  780. -- line height: 16
  781. -- part name: content class activate
  782. ----- HyperTalk script -----
  783. on mouseDown
  784.   send mouseDown to field "content class"
  785. end mouseDown
  786.  
  787.  
  788.  
  789. -- part 58 (button)
  790. -- low flags: 00
  791. -- high flags: 2000
  792. -- rect: left=15 top=39 right=54 bottom=200
  793. -- title width / last selected line: 0
  794. -- icon id / first selected line: 0 / 0
  795. -- text alignment: 1
  796. -- font id: 0
  797. -- text size: 12
  798. -- style flags: 0
  799. -- line height: 16
  800. -- part name: format activate
  801. ----- HyperTalk script -----
  802. on mouseDown
  803.   send mouseDown to field "format"
  804. end mouseDown
  805.  
  806.  
  807.  
  808. -- part 59 (button)
  809. -- low flags: 00
  810. -- high flags: 2000
  811. -- rect: left=205 top=39 right=55 bottom=380
  812. -- title width / last selected line: 0
  813. -- icon id / first selected line: 0 / 0
  814. -- text alignment: 1
  815. -- font id: 0
  816. -- text size: 12
  817. -- style flags: 0
  818. -- line height: 16
  819. -- part name: audio format activate
  820. ----- HyperTalk script -----
  821. on mouseDown
  822.   send mouseDown to field "Audio Format"
  823. end mouseDown
  824.  
  825.  
  826.  
  827. -- part 60 (button)
  828. -- low flags: 00
  829. -- high flags: 2000
  830. -- rect: left=12 top=236 right=254 bottom=156
  831. -- title width / last selected line: 0
  832. -- icon id / first selected line: 0 / 0
  833. -- text alignment: 1
  834. -- font id: 0
  835. -- text size: 12
  836. -- style flags: 0
  837. -- line height: 16
  838. -- part name: num vol activate
  839. ----- HyperTalk script -----
  840. on mouseDown
  841.   send mouseDown to field "numVol"
  842. end mouseDown
  843.  
  844.  
  845.  
  846. -- part 61 (button)
  847. -- low flags: 00
  848. -- high flags: 2000
  849. -- rect: left=162 top=248 right=263 bottom=325
  850. -- title width / last selected line: 0
  851. -- icon id / first selected line: 0 / 0
  852. -- text alignment: 1
  853. -- font id: 0
  854. -- text size: 12
  855. -- style flags: 0
  856. -- line height: 16
  857. -- part name: tape speed activate
  858. ----- HyperTalk script -----
  859. on mouseDown
  860.   send mouseDown to field "tape speed"
  861. end mouseDown
  862.  
  863.  
  864.  
  865. -- part 62 (button)
  866. -- low flags: 00
  867. -- high flags: 2000
  868. -- rect: left=328 top=237 right=255 bottom=428
  869. -- title width / last selected line: 0
  870. -- icon id / first selected line: 0 / 0
  871. -- text alignment: 1
  872. -- font id: 0
  873. -- text size: 12
  874. -- style flags: 0
  875. -- line height: 16
  876. -- part name: year activate
  877. ----- HyperTalk script -----
  878. on mouseDown
  879.   send mouseDown to field "year"
  880. end mouseDown
  881.  
  882.  
  883.  
  884. -- part 63 (button)
  885. -- low flags: 00
  886. -- high flags: 0000
  887. -- rect: left=136 top=64 right=78 bottom=377
  888. -- title width / last selected line: 0
  889. -- icon id / first selected line: 0 / 0
  890. -- text alignment: 1
  891. -- font id: 0
  892. -- text size: 12
  893. -- style flags: 0
  894. -- line height: 16
  895. -- part name: user entry
  896. ----- HyperTalk script -----
  897. on mouseUp
  898.   fieldMsg
  899. end mouseUp
  900.  
  901.  
  902.  
  903. -- part 64 (button)
  904. -- low flags: 00
  905. -- high flags: 2000
  906. -- rect: left=340 top=21 right=37 bottom=422
  907. -- title width / last selected line: 0
  908. -- icon id / first selected line: 0 / 0
  909. -- text alignment: 1
  910. -- font id: 0
  911. -- text size: 12
  912. -- style flags: 0
  913. -- line height: 16
  914. -- part name: user entry
  915. ----- HyperTalk script -----
  916. on mouseDown
  917.   fieldMsg
  918. end mouseDown
  919.  
  920.